home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / vision / animatio / demos / 24hdemo / 24hdemo.s < prev    next >
Text File  |  1995-11-25  |  27KB  |  1,324 lines
  1.  
  2. MODE    EQU    %0000000001100100
  3.  
  4. SCREEN    EQU    $300000
  5. SSTACK    EQU    $400000
  6.  
  7. NOP    EQU    095
  8. LGH    EQU    110
  9. MNH    EQU    070
  10. TEH    EQU    024
  11. MEH    EQU    036
  12.  
  13.     SECTION    TEXT
  14.  
  15.     BRA.S    STARUP
  16.  
  17.     DC.B    "FERGANI Bruno, 11 rue Manet, 25230 Seloncourt "
  18.     DC.B    "FRANCE. Phone number: 81.37.07.78. Contact me!"
  19.     EVEN
  20.  
  21. STARUP    DC.W    $A00A
  22.  
  23.     CLR.L    -(SP)
  24.     MOVE.W    #$20,-(SP)
  25.     TRAP    #1
  26.     ADDQ.L    #6,SP
  27.  
  28.     MOVE.L    D0,S_SSP1
  29.     MOVE.L    SP,S_SSP2
  30.  
  31.     LEA    SSTACK,SP
  32.  
  33.     BSR    LABEL1
  34.  
  35.     BSR    PINITS
  36.  
  37.     BSR    LABEL2
  38.  
  39.     BSR    WITKEY
  40.  
  41.     BSR    LABEL3
  42.  
  43.     BSR    PEXITS
  44.  
  45.     MOVE.L    S_SSP2,SP
  46.  
  47.     MOVE.L    S_SSP1,-(SP)
  48.     MOVE.W    #$20,-(SP)
  49.     TRAP    #1
  50.     ADDQ.L    #6,SP
  51.  
  52.     DC.W    $A009
  53.  
  54.     CLR.W    -(SP)
  55.     TRAP    #1
  56.  
  57. PINITS    MOVEM.L    D0-D7/A0-A6,-(SP)
  58.  
  59.     MOVE.W    #2,-(SP)
  60.     TRAP    #14
  61.     ADDQ.L    #2,SP
  62.  
  63.     MOVE.L    D0,S_PHY
  64.  
  65.     MOVE.W    #3,-(SP)
  66.     TRAP    #14
  67.     ADDQ.L    #2,SP
  68.  
  69.     MOVE.L    D0,S_LOG
  70.  
  71.     MOVE.W    #-1,-(SP)
  72.     MOVE.W    #88,-(SP)
  73.     TRAP    #14
  74.     ADDQ.L    #4,SP
  75.  
  76.     MOVE.W    D0,S_MODE
  77.  
  78.     MOVE.W    #MODE,-(SP)
  79.     MOVE.W    #3,-(SP)
  80.     PEA    SCREEN
  81.     PEA    SCREEN
  82.     MOVE.W    #5,-(SP)
  83.     TRAP    #14
  84.     LEA    14(SP),SP
  85.  
  86.     MOVEC    CACR,D0
  87.     MOVE.L    D0,S_CACR
  88.     ANDI.W    #$FEFE,D0
  89.     MOVEC    D0,CACR
  90.  
  91.     MOVE.L    $00000070.W,S_0070
  92.     MOVE.L    $00000120.W,S_0120
  93.     MOVE.B    $FFFFFA07.W,S_FA07
  94.     MOVE.B    $FFFFFA13.W,S_FA13
  95.     MOVE.B    $FFFFFA09.W,S_FA09
  96.     MOVE.B    $FFFFFA15.W,S_FA15
  97.     MOVE.B    $FFFFFA17.W,S_FA17
  98.  
  99.     MOVE    #$2700,SR
  100.  
  101.     CLR.B    $FFFFFA07.W
  102.     CLR.B    $FFFFFA13.W
  103.     CLR.B    $FFFFFA09.W
  104.     CLR.B    $FFFFFA15.W
  105.  
  106.     MOVE.L    #VBLSNX,$0070.W
  107.     MOVE.L    #HBLSX1,$0120.W
  108.  
  109.     BCLR    #$3,$FFFFFA17.W
  110.     OR.B    #$1,$FFFFFA07.W
  111.     OR.B    #$1,$FFFFFA13.W
  112.  
  113.     MOVE    #$2300,SR
  114.  
  115.     MOVEQ    #$2,D0
  116.     BSR    WITVBL
  117.  
  118.     CLR.L    $FFFF9800.W
  119.  
  120.     MOVEM.L    (SP)+,D0-D7/A0-A6
  121.     RTS
  122.  
  123. PEXITS    MOVEM.L    D0-D7/A0-A6,-(SP)
  124.  
  125.     MOVEQ    #$2,D0
  126.     BSR    WITVBL
  127.  
  128.     MOVE    #$2700,SR
  129.  
  130.     MOVE.L    S_0070,$00000070.W
  131.     MOVE.L    S_0120,$00000120.W
  132.     MOVE.B    S_FA07,$FFFFFA07.W
  133.     MOVE.B    S_FA13,$FFFFFA13.W
  134.     MOVE.B    S_FA09,$FFFFFA09.W
  135.     MOVE.B    S_FA15,$FFFFFA15.W
  136.     MOVE.B    S_FA17,$FFFFFA17.W
  137.  
  138. ACIAON    BTST    #0,$FFFFFC00.W
  139.     BEQ.S    ACIAOF
  140.  
  141.     MOVE.B    $FFFFFC02.W,D0
  142.     BRA.S    ACIAON
  143.  
  144. ACIAOF    MOVE.L    S_CACR,D0
  145.     MOVEC    D0,CACR
  146.  
  147.     MOVE    #$2300,SR
  148.  
  149.     MOVE.W    S_MODE,-(SP)
  150.     MOVE.W    #3,-(SP)
  151.     MOVE.L    S_PHY,-(SP)
  152.     MOVE.L    S_LOG,-(SP)
  153.     MOVE.W    #5,-(SP)
  154.     TRAP    #14
  155.     LEA    14(SP),SP
  156.  
  157.     MOVEM.L    (SP)+,D0-D7/A0-A6
  158.     RTS
  159.  
  160. VBLSNX    MOVEM.L    D0/A0,-(SP)
  161.  
  162.     LEA    PTRLOG,A0
  163.  
  164.     MOVE.B    $1(A0),$FFFF8201.W
  165.     MOVE.B    $2(A0),$FFFF8203.W
  166.     MOVE.B    $3(A0),$FFFF820D.W
  167.  
  168.     CLR.W    $FFFF820E.W
  169.  
  170.     CLR.B    $FFFFFA1B.W
  171.  
  172.     MOVE.B    #LGH,$FFFFFA21.W
  173.  
  174.     MOVE.L    #HBLSX1,$00120.W
  175.  
  176.     MOVE.B    #$08,$FFFFFA1B.W
  177.  
  178.     MOVE.L    PTRMNT,A0
  179.     MOVE.L    ADDMNT,D0
  180.     ADD.L    D0,A0
  181.  
  182.     MOVE.L    A0,CRTMNT
  183.  
  184.     ADDI.L    #002*2,D0
  185.     CMPI.L    #384*2,D0
  186.     BCS.S    MNTNEN
  187.  
  188.     MOVEQ    #00,D0
  189.  
  190. MNTNEN    MOVE.L    D0,ADDMNT
  191.  
  192.     MOVE.L    PTRTER,A0
  193.     MOVE.L    ADDTER,D0
  194.     ADD.L    D0,A0
  195.  
  196.     MOVE.L    A0,CRTTER
  197.  
  198.     ADDI.L    #004*2,D0
  199.     CMPI.L    #384*2,D0
  200.     BCS.S    TERNEN
  201.  
  202.     MOVEQ    #00,D0
  203.  
  204. TERNEN    MOVE.L    D0,ADDTER
  205.  
  206.     MOVE.L    PTRMER,A0
  207.     MOVE.L    ADDMER,D0
  208.     ADD.L    D0,A0
  209.  
  210.     MOVE.L    A0,CRTMER
  211.  
  212.     ADDI.L    #006*2,D0
  213.     CMPI.L    #384*2,D0
  214.     BCS.S    MERNEN
  215.  
  216.     MOVEQ    #00,D0
  217.  
  218. MERNEN    MOVE.L    D0,ADDMER
  219.  
  220.     ADDQ.W    #1,VBLCNT
  221.  
  222.     MOVEM.L    (SP)+,D0/A0
  223.     RTE
  224.  
  225. HBLSX1    MOVE    #$2700,SR
  226.  
  227.     MOVEM.L    D0-D1/A0-A1,-(SP)
  228.  
  229.     LEA    $FFFF8209.W,A0
  230.     MOVE.B    (A0),D0
  231. SYNCN1    CMP.B    (A0),D0
  232.     BEQ.S    SYNCN1
  233.  
  234.     DCB.W    NOP,$4E71
  235.  
  236.     LEA    $FFFF8203.W,A0
  237.     LEA    $FFFF820E.W,A1
  238.     MOVE.L    CRTMNT,D0
  239.     MOVE.W    #384,D1
  240.  
  241.     MOVE.W    D1,(A1)
  242.     MOVEP.L    D0,(A0)
  243.  
  244.     CLR.B    $FFFFFA1B.W
  245.  
  246.     MOVE.B    #MNH,$FFFFFA21.W
  247.  
  248.     MOVE.L    #HBLSX2,$00120.W
  249.  
  250.     MOVE.B    #$08,$FFFFFA1B.W
  251.  
  252.     MOVEM.L    (SP)+,D0-D1/A0-A1
  253.     RTE
  254.  
  255. HBLSX2    MOVE    #$2700,SR
  256.  
  257.     MOVEM.L    D0-D1/A0-A1,-(SP)
  258.  
  259.     LEA    $FFFF8209.W,A0
  260.     MOVE.B    (A0),D0
  261. SYNCN2    CMP.B    (A0),D0
  262.     BEQ.S    SYNCN2
  263.  
  264.     DCB.W    NOP,$4E71
  265.  
  266.     LEA    $FFFF8203.W,A0
  267.     LEA    $FFFF820E.W,A1
  268.     MOVE.L    CRTTER,D0
  269.     MOVE.W    #384,D1
  270.  
  271.     MOVE.W    D1,(A1)
  272.     MOVEP.L    D0,(A0)
  273.  
  274.     CLR.B    $FFFFFA1B.W
  275.  
  276.     MOVE.B    #TEH,$FFFFFA21.W
  277.  
  278.     MOVE.L    #HBLSX3,$00120.W
  279.  
  280.     MOVE.B    #$08,$FFFFFA1B.W
  281.  
  282.     MOVEM.L    (SP)+,D0-D1/A0-A1
  283.     RTE
  284.  
  285. HBLSX3    MOVE    #$2700,SR
  286.  
  287.     MOVEM.L    D0-D1/A0-A1,-(SP)
  288.  
  289.     LEA    $FFFF8209.W,A0
  290.     MOVE.B    (A0),D0
  291. SYNCN3    CMP.B    (A0),D0
  292.     BEQ.S    SYNCN3
  293.  
  294.     DCB.W    NOP,$4E71
  295.  
  296.     LEA    $FFFF8203.W,A0
  297.     LEA    $FFFF820E.W,A1
  298.     MOVE.L    CRTMER,D0
  299.     MOVE.W    #384,D1
  300.  
  301.     MOVE.W    D1,(A1)
  302.     MOVEP.L    D0,(A0)
  303.  
  304.     CLR.B    $FFFFFA1B.W
  305.  
  306.     MOVE.B    #MEH,$FFFFFA21.W
  307.  
  308.     MOVE.L    #HBLSX4,$00120.W
  309.  
  310.     MOVE.B    #$08,$FFFFFA1B.W
  311.  
  312.     MOVEM.L    (SP)+,D0-D1/A0-A1
  313.     RTE
  314.  
  315. HBLSX4    RTE
  316.  
  317. WITKEY    CMP.B    #$39,$FFFFFC02.W
  318.     BNE.S    WITKEY
  319. RELKEY    CMP.B    #$B9,$FFFFFC02.W
  320.     BNE.S    RELKEY
  321.     RTS
  322.  
  323. WITVBL    MOVE.W    VBLCNT,D1
  324.     ADD.W    D0,D1
  325. WITNEW    CMP.W    VBLCNT,D1
  326.     BCS.S    WITNEW
  327.     RTS
  328.  
  329. LABEL1    BRA    INITALL
  330. LABEL2    BRA    INITMFP
  331. LABEL3    BRA    RESTORE
  332.  
  333. INITALL    MOVE.W    #1,-(A7)
  334.     MOVE.W    #1,-(A7)
  335.     MOVE.W    #0,-(A7)
  336.     MOVE.W    #8,-(A7)
  337.     MOVE.W    #1,-(A7)
  338.     MOVE.W    #$8B,-(A7)
  339.     TRAP    #14
  340.     LEA    $C(A7),A7
  341.     MOVE.W    #0,-(A7)
  342.     MOVE.W    #1,-(A7)
  343.     MOVE.W    #$89,-(A7)
  344.     TRAP    #14
  345.     ADDQ.W    #6,A7
  346.     LEA    L732E2,A0
  347.     MOVEA.L    A0,A1
  348.     MOVE.L    #$5EC,D0
  349.     LSR.L    #2,D0
  350.     SUBQ.W    #1,D0
  351. .COPIE    ADDQ.L    #1,A1
  352.     MOVE.B    (A1)+,(A0)+
  353.     MOVE.B    (A1)+,(A0)+
  354.     MOVE.B    (A1)+,(A0)+
  355.     DBF    D0,.COPIE
  356.     MOVE.W    #1,-(A7)
  357.     MOVE.L    #$17B,-(A7)
  358.     PEA    L732E2(PC)
  359.     MOVE.W    #$6E,-(A7)
  360.     TRAP    #14
  361.     LEA    $C(A7),A7
  362.     BSR    L7280E
  363.     BSR    L72702
  364.     BSR    L7283E
  365.     RTS
  366.  
  367. RESTORE    MOVE.L    M_0134,$00000134.W
  368.     MOVE.B    M_FA19,$FFFFFA19.W
  369.     MOVE.B    M_FA1F,$FFFFFA1F.W
  370.     MOVE.B    M_FA07,$FFFFFA07.W
  371.     MOVE.B    M_FA13,$FFFFFA13.W
  372.     BCLR    #5,$FFFFFA07.W
  373.     BCLR    #5,$FFFFFA13.W
  374.  
  375.     MOVE.W    #1,-(A7)
  376.     MOVE.W    #0,-(A7)
  377.     MOVE.W    #0,-(A7)
  378.     MOVE.W    #8,-(A7)
  379.     MOVE.W    #0,-(A7)
  380.     MOVE.W    #$8B,-(A7)
  381.     TRAP    #14
  382.     LEA    $C(A7),A7
  383.     MOVE.W    #0,-(A7)
  384.     MOVE.W    #$84,-(A7)
  385.     TRAP    #14
  386.     ADDQ.W    #4,A7
  387.     RTS
  388.  
  389. INITMFP    MOVE.L    $00000134.W,M_0134
  390.     MOVE.B    $FFFFFA19.W,M_FA19
  391.     MOVE.B    $FFFFFA1F.W,M_FA1F
  392.     MOVE.B    $FFFFFA07.W,M_FA07
  393.     MOVE.B    $FFFFFA13.W,M_FA13
  394.     BCLR    #3,$FFFFFA17.W
  395.     BSET    #5,$FFFFFA07.W
  396.     BSET    #5,$FFFFFA13.W
  397.     MOVE.B    #$CC,$FFFFFA1F.W
  398.     MOVE.B    #$07,$FFFFFA19.W
  399.     MOVE.L    #TIMERA,$134.W
  400.     RTS
  401.  
  402. M_0134    DC.L    0
  403.  
  404. M_FA19    DC.B    0
  405. M_FA1F    DC.B    0
  406. M_FA07    DC.B    0
  407. M_FA13    DC.B    0
  408.  
  409. TIMERA    MOVE    #$2500,SR
  410.  
  411.     MOVEM.L    D0-D7/A0-A6,-(A7)
  412.     LEA    $FFFFA200.W,A6
  413.     LEA    LCA6F6,A0
  414.     LEA    LCA6F2,A1
  415.     CLR.B    $7(A6)
  416.     BSR.S    L72660
  417.     BSR.S    L72660
  418.     BSR.S    L72660
  419.     BSR.S    L72660
  420.     BSR    L72C4C
  421.     MOVEM.L    (A7)+,D0-D7/A0-A6
  422.     RTE
  423.  
  424. L72660    MOVE.B    $F(A1),5(A6)
  425.     CLR.W    6(A6)
  426.     MOVE.W    $C(A1),D0
  427.     LEA    0(A0,D0.W*4),A3
  428.     MOVE.B    1(A3),5(A6)
  429.     MOVE.W    2(A3),6(A6)
  430.     MOVEQ    #0,D0
  431. L72680    BTST    #0,2(A6)
  432.     BEQ.S    L72680
  433.     MOVE.B    5(A6),D0
  434.     LSL.L    #8,D0
  435.     MOVE.B    6(A6),D0
  436.     LSL.L    #8,D0
  437.     MOVE.B    7(A6),D0
  438.     TST.W    $10(A1)
  439.     BRA.S    L726A8
  440.     CLR.W    $10(A1)
  441.     MOVEA.L    0(A1),A2
  442.     BRA.S    L726BC
  443. L726A8    ADD.L    0(A1),D0
  444.     CMP.L    4(A1),D0
  445.     BCS.S    L726B6
  446.     SUB.L    8(A1),D0
  447. L726B6    MOVE.L    D0,0(A1)
  448.     MOVEA.L    D0,A2
  449. L726BC    MOVEQ    #0,D0
  450. L726BE    BTST    #0,2(A6)
  451.     BEQ.S    L726BE
  452.     MOVE.B    5(A6),D0
  453.     LSL.L    #8,D0
  454.     MOVE.B    6(A6),D0
  455.     LSL.L    #8,D0
  456.     MOVE.B    7(A6),D0
  457.     DIVU.W    #3,D0
  458.     ADDQ.W    #2,D0
  459.     MOVE.W    D0,D2
  460.     CLR.B    5(A6)
  461.     ROL.W    #8,D0
  462.     MOVE.B    D0,6(A6)
  463.     ROL.W    #8,D0
  464.     MOVE.B    D0,7(A6)
  465.     SUBQ.W    #1,D2
  466. L726F0    MOVE.B    (A2)+,5(A6)
  467.     MOVE.W    (A2)+,6(A6)
  468.     DBF    D2,L726F0
  469.     ADDA.W    #$12,A1
  470.     RTS
  471.  
  472. L72702    LEA    MODULE,A0
  473.     LEA    $3B6(A0),A1
  474.     LEA    $86(A1),A2
  475.     MOVEQ    #$1E,D0
  476.     CMPI.L    #$4D2E4B2E,$438(A0)
  477.     BEQ.S    L72726
  478.     LEA    $1D6(A0),A1
  479.     LEA    $82(A1),A2
  480.     MOVEQ    #$E,D0
  481. L72726    MOVE.L    A1,LCA66C
  482.     MOVE.L    A2,LCA670
  483.     MOVE.W    D0,LCA674
  484.     MOVEA.L    LCA66C,A1
  485.     ADDQ.L    #2,A1
  486.     MOVEQ    #$7F,D0
  487.     MOVEQ    #0,D1
  488. L72744    MOVE.B    (A1)+,D2
  489.     CMP.B    D2,D1
  490.     BCC.S    L7274C
  491.     MOVE.B    D2,D1
  492. L7274C    DBF    D0,L72744
  493.     ADDQ.W    #1,D1
  494.     MULU.W    #$400,D1
  495.     MOVEA.L    LCA670,A1
  496.     LEA    0(A1,D1.L),A1
  497.     LEA    $2A(A0),A2
  498.     MOVEQ    #0,D2
  499.     MOVE.W    LCA674,D0
  500. L7276C    MOVE.W    (A2),D3
  501.     EXT.L    D3
  502.     ADD.L    D3,D3
  503.     ADD.L    D3,D2
  504.     ADDA.W    #$1E,A2
  505.     DBF    D0,L7276C
  506.     LEA    FINMOD,A2
  507.     MOVEA.L    A1,A3
  508.     ADDA.L    D2,A1
  509. L72788    MOVE.W    -(A1),-(A2)
  510.     SUBQ.L    #2,D2
  511.     BNE.S    L72788
  512.     LEA    LCA676,A1
  513.     MOVE.W    LCA674,D0
  514. L7279A    MOVE.L    A3,(A1)+
  515.     TST.W    $2A(A0)
  516.     BEQ.S    L72804
  517.     TST.W    $2E(A0)
  518.     BNE.S    L727BA
  519.     MOVE.W    $2A(A0),D1
  520.     MOVE.W    D1,D3
  521.     SUBQ.W    #1,D1
  522.     MOVEA.L    A3,A4
  523. L727B2    MOVE.W    (A2)+,(A3)+
  524.     DBF    D1,L727B2
  525.     BRA.S    L727D2
  526. L727BA    MOVE.W    $2E(A0),D1
  527.     MOVE.W    D1,D3
  528.     SUBQ.W    #1,D1
  529.     MOVEA.L    A2,A4
  530. L727C4    MOVE.W    (A4)+,(A3)+
  531.     DBF    D1,L727C4
  532.     ADDA.W    $2A(A0),A2
  533.     ADDA.W    $2A(A0),A2
  534. L727D2    MOVEA.L    A3,A5
  535.     MOVEQ    #0,D1
  536. L727D6    MOVEA.L    A4,A6
  537.     MOVE.W    $30(A0),D2
  538.     SUBQ.W    #1,D2
  539. L727DE    MOVE.W    (A6)+,(A3)+
  540.     ADDQ.W    #2,D1
  541.     DBF    D2,L727DE
  542.     CMP.W    #$384,D1
  543.     BCS.S    L727D6
  544.     MOVE.W    #$1C1,D2
  545. L727F0    MOVE.W    (A5)+,(A3)+
  546.     DBF    D2,L727F0
  547.     ADD.W    D3,D3
  548.     MOVE.W    D3,$2A(A0)
  549.     MOVE.W    D1,$30(A0)
  550.     CLR.W    $2E(A0)
  551. L72804    LEA    $1E(A0),A0
  552.     DBF    D0,L7279A
  553.     RTS
  554.  
  555. L7280E    LEA    LCA6F6,A0
  556.     MOVE.W    #$4F,D0
  557. L72818    CLR.L    (A0)+
  558.     DBF    D0,L72818
  559.     MOVE.W    #$31F,D0
  560.     MOVE.L    #$50,D1
  561.     MOVE.L    #$24665268,D2
  562. L7282E    MOVE.L    D2,D4
  563.     DIVU.L    D1,D4
  564.     MOVE.L    D4,(A0)+
  565.     ADDQ.L    #1,D1
  566.     DBF    D0,L7282E
  567.     RTS
  568.  
  569. L7283E    LEA    LCB4B6,A0
  570.     MOVEA.L    A0,A1
  571.     LEA    $384(A1),A2
  572.     MOVE.W    #$383,D0
  573. L7284E    CLR.W    (A0)+
  574.     DBF    D0,L7284E
  575.     LEA    LCA6F2,A0
  576.     MOVE.W    #3,D0
  577. L7285E    MOVE.L    A1,0(A0)
  578.     MOVE.L    A2,4(A0)
  579.     MOVE.L    #$384,8(A0)
  580.     MOVE.W    #$320,$C(A0)
  581.     CLR.W    $E(A0)
  582.     MOVE.W    #$FFFF,$10(A0)
  583.     ADDA.W    #$12,A0
  584.     DBF    D0,L7285E
  585.     RTS
  586.  
  587. L72888    DC.L    L728C4
  588. L7288C    DC.W    0
  589. L7288E    DC.W    0
  590. L72890    DC.W    0
  591. L72892    DC.W    0
  592. L72894    DC.W    0
  593. L72896    DC.W    0
  594.  
  595. L72898    DC.L    L728C4
  596. L7289C    DC.W    0
  597. L7289E    DC.W    0
  598. L728A0    DC.W    0
  599. L728A2    DC.W    0
  600. L728A4    DC.W    0
  601. L728A6    DC.W    0
  602.  
  603. L728A8    DC.L    L728C4
  604. L728AC    DC.W    0
  605. L728AE    DC.W    0
  606. L728B0    DC.W    0
  607. L728B2    DC.W    0
  608. L728B4    DC.W    0
  609. L728B6    DC.W    0
  610.  
  611. L728B8    DC.L    L728C4
  612. L728BC    DC.W    0
  613. L728BE    DC.W    0
  614. L728C0    DC.W    0
  615. L728C2    DC.W    0
  616.  
  617. L728C4    DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  618.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  619.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  620.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  621.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  622.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  623.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  624.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  625.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  626.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  627.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  628.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  629.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  630.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  631.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  632.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  633.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  634.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  635.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  636.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  637.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  638.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  639.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  640.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  641.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  642.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  643.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  644.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  645.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  646.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  647.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  648.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  649.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  650.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  651.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  652.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  653.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  654.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  655.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  656.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  657.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  658.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  659.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  660.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  661.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  662.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  663.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  664.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  665.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  666.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  667.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  668.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  669.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  670.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  671.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  672.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  673.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  674.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  675.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  676.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  677.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  678.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  679.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  680.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  681.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  682.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  683.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  684.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  685.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  686.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  687.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  688.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  689.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  690.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  691.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  692.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  693.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  694.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  695.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  696.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  697.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  698.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  699.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  700.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  701.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  702.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  703.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  704.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  705.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  706.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  707.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  708.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  709.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  710.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  711.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  712.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  713.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  714.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  715.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  716.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  717.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  718.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  719.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  720.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  721.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  722.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  723.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  724.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  725.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  726.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  727.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  728.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  729.     DC.B    $00,$00,$00,$00,$00,$00,$00,$00
  730.  
  731. L72C4C    LEA    MODULE,A0
  732.     ADDQ.W    #1,L7326A
  733.     MOVE.W    L7326A(PC),D0
  734.     CMP.W    L73268(PC),D0
  735.     BNE.S    L72C6E
  736.     MOVE.W    #$FFFF,L7326A
  737.     BRA    L72CA2
  738. L72C6E    LEA    L73272(PC),A4
  739.     LEA    L72888(PC),A3
  740.     BSR    L72F42
  741.     LEA    L7328E(PC),A4
  742.     LEA    L72898(PC),A3
  743.     BSR    L72F42
  744.     LEA    L732AA(PC),A4
  745.     LEA    L728A8(PC),A3
  746.     BSR    L72F42
  747.     LEA    L732C6(PC),A4
  748.     LEA    L728B8(PC),A3
  749.     BSR    L72F42
  750.     BRA    L72E0C
  751. L72CA2    MOVEA.L    LCA670,A0
  752.     MOVEA.L    LCA66C,A1
  753.     ADDQ.L    #2,A1
  754.     LEA    MODULE,A2
  755.     LEA    $2A(A2),A2
  756.     MOVEQ    #0,D0
  757.     MOVE.L    D0,D1
  758.     MOVE.B    L7326C(PC),D0
  759.     MOVE.B    0(A1,D0.W),D1
  760.     MOVEQ    #$A,D2
  761.     ASL.L    D2,D1
  762.     ADD.W    L7326E(PC),D1
  763.     CLR.W    L73270
  764.     LEA    L72888(PC),A3
  765.     LEA    L73272(PC),A4
  766.     BSR    L72E68
  767.     LEA    L72898(PC),A3
  768.     LEA    L7328E(PC),A4
  769.     BSR    L72E68
  770.     LEA    L728A8(PC),A3
  771.     LEA    L732AA(PC),A4
  772.     BSR    L72E68
  773.     LEA    L728B8(PC),A3
  774.     LEA    L732C6(PC),A4
  775.     BSR    L72E68
  776.     LEA    LCA6F2,A0
  777.     MOVE.W    L73270(PC),D0
  778.     BTST    #0,D0
  779.     BEQ.S    L72D3A
  780.     MOVEQ    #0,D1
  781.     MOVEQ    #0,D2
  782.     MOVE.W    L7288C(PC),D1
  783.     MOVE.W    L73280(PC),D2
  784.     ADD.L    D2,D1
  785.     MOVE.L    L72888(PC),0(A0)
  786.     ADD.L    L72888(PC),D1
  787.     MOVE.L    D1,4(A0)
  788.     MOVE.L    D2,8(A0)
  789.     MOVE.W    #$FFFF,$10(A0)
  790. L72D3A    LEA    $12(A0),A0
  791.     BTST    #1,D0
  792.     BEQ.S    L72D6A
  793.     MOVEQ    #0,D1
  794.     MOVEQ    #0,D2
  795.     MOVE.W    L7289C(PC),D1
  796.     MOVE.W    L7329C(PC),D2
  797.     ADD.L    D2,D1
  798.     MOVE.L    L72898(PC),0(A0)
  799.     ADD.L    L72898(PC),D1
  800.     MOVE.L    D1,4(A0)
  801.     MOVE.L    D2,8(A0)
  802.     MOVE.W    #$FFFF,$10(A0)
  803. L72D6A    LEA    $12(A0),A0
  804.     BTST    #2,D0
  805.     BEQ.S    L72D9A
  806.     MOVEQ    #0,D1
  807.     MOVEQ    #0,D2
  808.     MOVE.W    L728AC(PC),D1
  809.     MOVE.W    L732B8(PC),D2
  810.     ADD.L    D2,D1
  811.     MOVE.L    L728A8(PC),0(A0)
  812.     ADD.L    L728A8(PC),D1
  813.     MOVE.L    D1,4(A0)
  814.     MOVE.L    D2,8(A0)
  815.     MOVE.W    #$FFFF,$10(A0)
  816. L72D9A    LEA    $12(A0),A0
  817.     BTST    #3,D0
  818.     BEQ.S    L72DCA
  819.     MOVEQ    #0,D1
  820.     MOVEQ    #0,D2
  821.     MOVE.W    L728BC(PC),D1
  822.     MOVE.W    L732D4(PC),D2
  823.     ADD.L    D2,D1
  824.     MOVE.L    L728B8(PC),0(A0)
  825.     ADD.L    L728B8(PC),D1
  826.     MOVE.L    D1,4(A0)
  827.     MOVE.L    D2,8(A0)
  828.     MOVE.W    #$FFFF,$10(A0)
  829. L72DCA    ADDI.W    #$10,L7326E
  830.     CMPI.W    #$400,L7326E
  831.     BNE.S    L72E0C
  832. L72DDC    CLR.W    L7326E
  833.     CLR.B    L7326D
  834.     ADDQ.B    #1,L7326C
  835.     ANDI.B    #$7F,L7326C
  836.     MOVE.B    L7326C(PC),D1
  837.     MOVEA.L    LCA66C,A0
  838.     CMP.B    (A0),D1
  839.     BNE.S    L72E0C
  840.     MOVE.B    1(A0),L7326C
  841. L72E0C    TST.B    L7326D
  842.     BNE.S    L72DDC
  843.     LEA    LCA6F2,A0
  844.     MOVE.W    L7288E,$C(A0)
  845.     MOVE.W    L72890,$E(A0)
  846.     LEA    $12(A0),A0
  847.     MOVE.W    L7289E,$C(A0)
  848.     MOVE.W    L728A0,$E(A0)
  849.     LEA    $12(A0),A0
  850.     MOVE.W    L728AE,$C(A0)
  851.     MOVE.W    L728B0,$E(A0)
  852.     LEA    $12(A0),A0
  853.     MOVE.W    L728BE,$C(A0)
  854.     MOVE.W    L728C0,$E(A0)
  855.     RTS
  856.  
  857. L72E68    MOVE.L    0(A0,D1.L),(A4)
  858.     ADDQ.L    #4,D1
  859.     MOVEQ    #0,D2
  860.     MOVE.B    2(A4),D2
  861.     ANDI.B    #$F0,D2
  862.     LSR.B    #4,D2
  863.     MOVE.B    (A4),D0
  864.     ANDI.B    #$F0,D0
  865.     OR.B    D0,D2
  866.     TST.B    D2
  867.     BEQ.S    L72EEA
  868.     MOVEQ    #0,D3
  869.     SUBQ.L    #1,D2
  870.     MOVE.L    D2,D4
  871.     ASL.L    #2,D2
  872.     MULU.W    #$1E,D4
  873.     LEA    LCA676,A1
  874.     MOVE.L    0(A1,D2.L),4(A4)
  875.     MOVE.W    0(A2,D4.L),8(A4)
  876.     MOVE.W    2(A2,D4.L),$12(A4)
  877.     MOVE.W    4(A2,D4.L),D3
  878.     BEQ.S    L72ED6
  879.     MOVE.L    4(A4),D2
  880.     ADD.W    D3,D3
  881.     ADD.L    D3,D2
  882.     MOVE.L    D2,$A(A4)
  883.     MOVE.W    4(A2,D4.L),D0
  884.     ADD.W    6(A2,D4.L),D0
  885.     MOVE.W    D0,8(A4)
  886.     MOVE.W    6(A2,D4.L),$E(A4)
  887.     MOVE.W    $12(A4),8(A3)
  888.     BRA.S    L72EEA
  889. L72ED6    MOVE.L    4(A4),D2
  890.     MOVE.L    D2,$A(A4)
  891.     MOVE.W    6(A2,D4.L),$E(A4)
  892.     MOVE.W    $12(A4),8(A3)
  893. L72EEA    MOVE.W    (A4),D0
  894.     ANDI.W    #$FFF,D0
  895.     BEQ    L731E8
  896.     MOVE.B    2(A4),D0
  897.     ANDI.B    #$F,D0
  898.     CMP.B    #3,D0
  899.     BNE.S    L72F0A
  900.     BSR    L73108
  901.     BRA    L731E8
  902. L72F0A    MOVE.W    (A4),$10(A4)
  903.     ANDI.W    #$FFF,$10(A4)
  904.     MOVE.W    $14(A4),D0
  905.     MOVE.W    D0,L728C2
  906.     CLR.B    $1B(A4)
  907.     MOVE.L    4(A4),(A3)
  908.     MOVE.W    8(A4),4(A3)
  909.     MOVE.W    $10(A4),D0
  910.     MOVE.W    D0,6(A3)
  911.     MOVE.W    $14(A4),D0
  912.     OR.W    D0,L73270
  913.     BRA    L731E8
  914. L72F42    MOVE.W    2(A4),D0
  915.     ANDI.W    #$FFF,D0
  916.     BEQ.S    L72F9A
  917.     MOVE.B    2(A4),D0
  918.     ANDI.B    #$F,D0
  919.     TST.B    D0
  920.     BEQ    L72FA2
  921.     CMP.B    #1,D0
  922.     BEQ    L73044
  923.     CMP.B    #2,D0
  924.     BEQ    L73076
  925.     CMP.B    #3,D0
  926.     BEQ    L730A8
  927.     CMP.B    #4,D0
  928.     BEQ    L7312E
  929.     CMP.B    #5,D0
  930.     BEQ    L7319C
  931.     CMP.B    #6,D0
  932.     BEQ    L731A2
  933.     MOVE.W    $10(A4),6(A3)
  934.     CMP.B    #$A,D0
  935.     BEQ    L731A6
  936.     RTS
  937.  
  938. L72F9A    MOVE.W    $10(A4),6(A3)
  939.     RTS
  940.  
  941. L72FA2    MOVEQ    #0,D0
  942.     MOVE.W    L7326A(PC),D0
  943.     DIVS.W    #3,D0
  944.     SWAP    D0
  945.     TST.W    D0
  946.     BEQ.S    L72FCE
  947.     CMP.W    #2,D0
  948.     BEQ.S    L72FC2
  949.     MOVEQ    #0,D0
  950.     MOVE.B    3(A4),D0
  951.     LSR.B    #4,D0
  952.     BRA.S    L72FD4
  953. L72FC2    MOVEQ    #0,D0
  954.     MOVE.B    3(A4),D0
  955.     ANDI.B    #$F,D0
  956.     BRA.S    L72FD4
  957. L72FCE    MOVE.W    $10(A4),D2
  958.     BRA.S    L72FF2
  959. L72FD4    ADD.W    D0,D0
  960.     MOVEQ    #0,D1
  961.     MOVE.W    $10(A4),D1
  962.     LEA    L72FF8(PC),A0
  963.     MOVEQ    #$24,D4
  964. L72FE2    MOVE.W    0(A0,D0.W),D2
  965.     CMP.W    (A0),D1
  966.     BGE.S    L72FF2
  967.     ADDQ.L    #2,A0
  968.     DBF    D4,L72FE2
  969.     RTS
  970.  
  971. L72FF2    MOVE.W    D2,6(A3)
  972.     RTS
  973.  
  974. L72FF8    DC.W    $0358,$0328,$02FA,$02D0
  975.     DC.W    $02A6,$0280,$025C,$023A
  976.     DC.W    $021A,$01FC,$01E0,$01C5
  977.     DC.W    $01AC,$0194,$017D,$0168
  978.     DC.W    $0153,$0140,$012E,$011D
  979.     DC.W    $010D,$00FE,$00F0,$00E2
  980.     DC.W    $00D6,$00CA,$00BE,$00B4
  981.     DC.W    $00AA,$00A0,$0097,$008F
  982.     DC.W    $0087,$007F,$0078,$0071
  983.     DC.W    $0000,$0000
  984.  
  985. L73044    MOVEQ    #0,D0
  986.     MOVE.B    3(A4),D0
  987.     SUB.W    D0,$10(A4)
  988.     MOVE.W    $10(A4),D0
  989.     ANDI.W    #$FFF,D0
  990.     CMP.W    #$71,D0
  991.     BPL.S    L73068
  992.     ANDI.W    #$F000,$10(A4)
  993.     ORI.W    #$71,$10(A4)
  994. L73068    MOVE.W    $10(A4),D0
  995.     ANDI.W    #$FFF,D0
  996.     MOVE.W    D0,6(A3)
  997.     RTS
  998.  
  999. L73076    CLR.W    D0
  1000.     MOVE.B    3(A4),D0
  1001.     ADD.W    D0,$10(A4)
  1002.     MOVE.W    $10(A4),D0
  1003.     ANDI.W    #$FFF,D0
  1004.     CMP.W    #$358,D0
  1005.     BMI.S    L7309A
  1006.     ANDI.W    #$F000,$10(A4)
  1007.     ORI.W    #$358,$10(A4)
  1008. L7309A    MOVE.W    $10(A4),D0
  1009.     ANDI.W    #$FFF,D0
  1010.     MOVE.W    D0,6(A3)
  1011.     RTS
  1012.  
  1013. L730A8    MOVE.B    3(A4),D0
  1014.     BEQ.S    L730B6
  1015.     MOVE.B    D0,$17(A4)
  1016.     CLR.B    3(A4)
  1017. L730B6    TST.W    $18(A4)
  1018.     BEQ.S    L7312C
  1019.     MOVEQ    #0,D0
  1020.     MOVE.B    $17(A4),D0
  1021.     TST.B    $16(A4)
  1022.     BNE.S    L730E8
  1023.     ADD.W    D0,$10(A4)
  1024.     MOVE.W    $18(A4),D0
  1025.     CMP.W    $10(A4),D0
  1026.     BGT.S    L730E0
  1027.     MOVE.W    $18(A4),$10(A4)
  1028.     CLR.W    $18(A4)
  1029. L730E0    MOVE.W    $10(A4),6(A3)
  1030.     RTS
  1031.  
  1032. L730E8    SUB.W    D0,$10(A4)
  1033.     MOVE.W    $18(A4),D0
  1034.     CMP.W    $10(A4),D0
  1035.     BLT.S    L730E0
  1036.     MOVE.W    $18(A4),$10(A4)
  1037.     CLR.W    $18(A4)
  1038.     MOVE.W    $10(A4),6(A3)
  1039.     RTS
  1040.  
  1041. L73108    MOVE.W    (A4),D2
  1042.     ANDI.W    #$FFF,D2
  1043.     MOVE.W    D2,$18(A4)
  1044.     MOVE.W    $10(A4),D0
  1045.     CLR.B    $16(A4)
  1046.     CMP.W    D0,D2
  1047.     BEQ.S    L73128
  1048.     BGE.S    L7312C
  1049.     MOVE.B    #1,$16(A4)
  1050.     RTS
  1051.  
  1052. L73128    CLR.W    $18(A4)
  1053. L7312C    RTS
  1054.  
  1055. L7312E    MOVE.B    3(A4),D0
  1056.     BEQ.S    L73138
  1057.     MOVE.B    D0,$1A(A4)
  1058. L73138    MOVE.B    $1B(A4),D0
  1059.     LEA    L7317C(PC),A1
  1060.     LSR.W    #2,D0
  1061.     ANDI.W    #$1F,D0
  1062.     MOVEQ    #0,D2
  1063.     MOVE.B    0(A1,D0.W),D2
  1064.     MOVE.B    $1A(A4),D0
  1065.     ANDI.W    #$F,D0
  1066.     MULU.W    D0,D2
  1067.     LSR.W    #6,D2
  1068.     MOVE.W    $10(A4),D0
  1069.     TST.B    $1B(A4)
  1070.     BMI.S    L73166
  1071.     ADD.W    D2,D0
  1072.     BRA.S    L73168
  1073. L73166    SUB.W    D2,D0
  1074. L73168    MOVE.W    D0,6(A3)
  1075.     MOVE.B    $1A(A4),D0
  1076.     LSR.W    #2,D0
  1077.     ANDI.W    #$3C,D0
  1078.     ADD.B    D0,$1B(A4)
  1079.     RTS
  1080.  
  1081. L7317C    DC.B    $00,$18,$31,$4A,$61,$78,$8D,$A1
  1082.     DC.B    $B4,$C5,$D4,$E0,$EB,$F4,$FA,$FD
  1083.     DC.B    $FF,$FD,$FA,$F4,$EB,$E0,$D4,$C5
  1084.     DC.B    $B4,$A1,$8D,$78,$61,$4A,$31,$18
  1085.  
  1086. L7319C    BSR    L730B6
  1087.     BRA.S    L731A6
  1088. L731A2    BSR    L73138
  1089. L731A6    MOVEQ    #0,D0
  1090.     MOVE.B    3(A4),D0
  1091.     LSR.B    #4,D0
  1092.     TST.B    D0
  1093.     BEQ.S    L731CC
  1094.     ADD.W    D0,$12(A4)
  1095.     CMPI.W    #$40,$12(A4)
  1096.     BMI.S    L731C4
  1097.     MOVE.W    #$40,$12(A4)
  1098. L731C4    MOVE.W    $12(A4),8(A3)
  1099.     RTS
  1100.  
  1101. L731CC    MOVEQ    #0,D0
  1102.     MOVE.B    3(A4),D0
  1103.     ANDI.B    #$F,D0
  1104.     SUB.W    D0,$12(A4)
  1105.     BPL.S    L731E0
  1106.     CLR.W    $12(A4)
  1107. L731E0    MOVE.W    $12(A4),8(A3)
  1108.     RTS
  1109.  
  1110. L731E8    MOVE.B    2(A4),D0
  1111.     ANDI.B    #$F,D0
  1112.     CMP.B    #$D,D0
  1113.     BEQ.S    L7320A
  1114.     CMP.B    #$B,D0
  1115. L731FA    BEQ.S    L73212
  1116.     CMP.B    #$C,D0
  1117.     BEQ.S    L73226
  1118.     CMP.B    #$F,D0
  1119.     BEQ.S    L73246
  1120.     RTS
  1121.  
  1122. L7320A    ST    L7326D
  1123.     RTS
  1124.  
  1125. L73212    MOVE.B    3(A4),D0
  1126.     SUBQ.B    #1,D0
  1127.     MOVE.B    D0,L7326C
  1128.     ST    L7326D
  1129.     RTS
  1130.  
  1131. L73226    MOVEQ    #0,D0
  1132.     MOVE.B    3(A4),D0
  1133.     CMP.W    #$40,D0
  1134.     BLE.S    L73238
  1135.     MOVE.B    #$40,3(A4)
  1136. L73238    MOVE.B    3(A4),9(A3)
  1137.     MOVE.B    3(A4),$13(A4)
  1138.     RTS
  1139.  
  1140. L73246    CMPI.B    #$1F,3(A4)
  1141.     BLE.S    L73254
  1142.     MOVE.B    #$1F,3(A4)
  1143. L73254    MOVE.B    3(A4),D0
  1144.     BEQ.S    L73266
  1145.     MOVE.W    D0,L73268
  1146.     CLR.W    L7326A
  1147. L73266    RTS
  1148.  
  1149. L73268    DC.W    6
  1150. L7326A    DC.W    0
  1151. L7326C    DC.B    0
  1152. L7326D    DC.B    0
  1153. L7326E    DC.W    0
  1154. L73270    DC.W    0
  1155.  
  1156. L73272    DC.W    $0000,$0000,$0000,$0000,$0000,$0000,$0000
  1157. L73280    DC.W    $0000,$0000,$0000,$0001,$0000,$0000,$0000
  1158.  
  1159. L7328E    DC.W    $0000,$0000,$0000,$0000,$0000,$0000,$0000
  1160. L7329C    DC.W    $0000,$0000,$0000,$0002,$0000,$0000,$0000
  1161.  
  1162. L732AA    DC.W    $0000,$0000,$0000,$0000,$0000,$0000,$0000
  1163. L732B8    DC.W    $0000,$0000,$0000,$0004,$0000,$0000,$0000
  1164.  
  1165. L732C6    DC.W    $0000,$0000,$0000,$0000,$0000,$0000,$0000
  1166. L732D4    DC.W    $0000,$0000,$0000,$0008,$0000,$0000,$0000
  1167.  
  1168. L732E2    DC.L    $000AF080,$00000040,$00000000,$00000000
  1169.     DC.L    $00000000,$00000000,$00000000,$00000000
  1170.     DC.L    $00000000,$00000000,$00000000,$00000000
  1171.     DC.L    $00000000,$00000000,$00000000,$00000000
  1172.     DC.L    $000BF080,$00000145,$00000000,$00000000
  1173.     DC.L    $00000000,$00000000,$00000000,$00000000
  1174.     DC.L    $00000000,$00000000,$00000000,$00000000
  1175.     DC.L    $00000000,$00000000,$00000000,$00000000
  1176.     DC.L    $00000000,$00000000,$00000000,$00000000
  1177.     DC.L    $00000000,$00000000,$00000000,$00000000
  1178.     DC.L    $00000000,$00000000,$00000000,$00000000
  1179.     DC.L    $00000000,$00000000,$00000000,$00000000
  1180.     DC.L    $00000000,$00000000,$00000000,$00000000
  1181.     DC.L    $00000000,$00000000,$00000000,$00000000
  1182.     DC.L    $00000000,$00000000,$00000000,$00000000
  1183.     DC.L    $00000000,$00000000,$00000000,$00000000
  1184.     DC.L    $0008F4BE,$00000000,$0008F4A0,$00000001
  1185.     DC.L    $0066F400,$00001000,$0067F400,$0000133E
  1186.     DC.L    $0005F426,$00000671,$000467A6,$0020001B
  1187.     DC.L    $000672A6,$00495E00,$00200013,$00560600
  1188.     DC.L    $00560500,$00560D00,$00560C00,$00561400
  1189.     DC.L    $00561300,$00561B00,$00561A00,$0056F400
  1190.     DC.L    $00000000,$0057F400,$00000000,$00560100
  1191.     DC.L    $00570200,$00570800,$00560900,$00570F00
  1192.     DC.L    $00561000,$00561600,$00571700,$0008F4BF
  1193.     DC.L    $00003000,$0008F4AC,$00004100,$0008F4AD
  1194.     DC.L    $00005800,$0008F4A1,$000001F0,$0008F4A3
  1195.     DC.L    $00000008,$0000FCB8,$000AA980,$0000006E
  1196.     DC.L    $0008452B,$000AA523,$0022EF00,$0022C400
  1197.     DC.L    $0020004C,$0020002E,$00571C00,$0022D500
  1198.     DC.L    $0060F400,$00000200,$0061F400,$00000003
  1199.     DC.L    $000BF080,$0000014B,$0060F400,$0000032C
  1200.     DC.L    $0061F400,$0000000A,$000BF080,$0000014B
  1201.     DC.L    $0060F400,$00000458,$0061F400,$00000011
  1202.     DC.L    $000BF080,$0000014B,$0060F400,$00000584
  1203.     DC.L    $0061F400,$00000018,$000BF080,$0000014B
  1204.     DC.L    $000AA503,$0046F400,$00700000,$0047F400
  1205.     DC.L    $00000000,$00448300,$002000D0,$00560100
  1206.     DC.L    $002000C0,$00560200,$00448A00,$002000D0
  1207.     DC.L    $00560900,$002000C0,$00560800,$00449100
  1208.     DC.L    $002000D0,$00561000,$002000C0,$00560F00
  1209.     DC.L    $00449800,$002000D0,$00561600,$002000C0
  1210.     DC.L    $00561700,$0060F400,$00000200,$000BF080
  1211.     DC.L    $00000163,$0060F400,$000006B0,$00578600
  1212.     DC.L    $00448400,$0045D800,$00468100,$004682E0
  1213.     DC.L    $0021C700,$002000E0,$0021C600,$00709C00
  1214.     DC.L    $0006D800,$000000C4,$00200048,$000AF0A5
  1215.     DC.L    $000000C4,$000ACD57,$0045D800,$00468100
  1216.     DC.L    $004682E0,$0021C700,$002000E0,$0021C600
  1217.     DC.L    $00435E00,$00570600,$00220F00,$0044F400
  1218.     DC.L    $000006B1,$0020004C,$00570500,$0060F400
  1219.     DC.L    $0000032C,$000BF080,$00000163,$0022B600
  1220.     DC.L    $0060F400,$000006B0,$00578D00,$00448B00
  1221.     DC.L    $0045D800,$00468800,$004689E0,$0021C700
  1222.     DC.L    $002000E0,$0021C600,$00709C00,$0006D800
  1223.     DC.L    $000000EC,$00200048,$000AF0A5,$000000E7
  1224.     DC.L    $000ACD57,$0045D800,$00468800,$004689E0
  1225.     DC.L    $0021C700,$002000E0,$0021C600,$0056E600
  1226.     DC.L    $00200070,$00566600,$005EE600,$00200050
  1227.     DC.L    $005E5E00,$00570D00,$00220F00,$0044F400
  1228.     DC.L    $000006B1,$0020004C,$00570C00,$0060F400
  1229.     DC.L    $00000458,$000BF080,$00000163,$0022B600
  1230.     DC.L    $0060F400,$000006B0,$00579400,$00449200
  1231.     DC.L    $0045D800,$00468F00,$004690E0,$0021C700
  1232.     DC.L    $002000E0,$0021C600,$00709C00,$0006D800
  1233.     DC.L    $00000114,$00200048,$000AF0A5,$0000010F
  1234.     DC.L    $000ACD57,$0045D800,$00468F00,$004690E0
  1235.     DC.L    $0021C700,$002000E0,$0021C600,$0056E600
  1236.     DC.L    $00200070,$00566600,$005EE600,$00200050
  1237.     DC.L    $005E5E00,$00571400,$00220F00,$0044F400
  1238.     DC.L    $000006B1,$0020004C,$00571300,$0060F400
  1239.     DC.L    $00000584,$000BF080,$00000163,$0022B600
  1240.     DC.L    $0060F400,$000006B0,$00579B00,$00449900
  1241.     DC.L    $0045D800,$00469600,$004697E0,$0021C700
  1242.     DC.L    $002000E0,$0021C600,$00709C00,$0006D800
  1243.     DC.L    $0000013C,$00200048,$000AF0A5,$00000137
  1244.     DC.L    $000ACD57,$0045D800,$00469600,$004697E0
  1245.     DC.L    $0021C700,$002000E0,$0021C600,$0056E600
  1246.     DC.L    $00200070,$00566600,$005EE600,$00200050
  1247.     DC.L    $005E5E00,$00571B00,$00220F00,$0044F400
  1248.     DC.L    $000006B1,$0020004C,$00571A00,$000AF080
  1249.     DC.L    $0000006E,$000AAE82,$00000149,$0008E7EF
  1250.     DC.L    $00000004,$0008DFAF,$00000004,$000AA980
  1251.     DC.L    $0000014B,$000859AB,$000AA980,$0000014E
  1252.     DC.L    $0008452B,$00455900,$00449C00,$002000A8
  1253.     DC.L    $000AA981,$00000154,$0008E1AB,$000AA981
  1254.     DC.L    $00000157,$0008CF2B,$000AA980,$0000015A
  1255.     DC.L    $0008442B,$0006C400,$00000161,$000AA980
  1256.     DC.L    $0000015F,$000858AB,$0000000C,$0061F400
  1257.     DC.L    $000006B0,$00062C81,$00000179,$0057E000
  1258.     DC.L    $0044F400,$00FF0000,$0045F44E,$00000080
  1259.     DC.L    $00555900,$0044E000,$0044F4A8,$00FF0000
  1260.     DC.L    $00212F00,$0045F44E,$00008000,$00555900
  1261.     DC.L    $0044D800,$0044F4A8,$00FF0000,$00212F00
  1262.     DC.L    $0020004E,$00555900,$0000000C
  1263.  
  1264.     SECTION    DATA
  1265.  
  1266. PTRLOG    DC.L    SANEXT
  1267. PTRMNT    DC.L    SANMNT
  1268. PTRTER    DC.L    SANTER
  1269. PTRMER    DC.L    SANMER
  1270.  
  1271. SANEXT    INCBIN    'SANEXT.BMP'
  1272.     EVEN
  1273.  
  1274. SANMNT    INCBIN    'SANMNT.BMP'
  1275.     EVEN
  1276.  
  1277. SANTER    INCBIN    'SANTER.BMP'
  1278.     EVEN
  1279.  
  1280. SANMER    INCBIN    'SANMER.BMP'
  1281.     EVEN
  1282.  
  1283. MODULE    INCBIN    'PSYTRO.MOD'
  1284.     EVEN
  1285.  
  1286.     SECTION    BSS
  1287.  
  1288.     DS.W    14000
  1289.  
  1290. FINMOD
  1291. LCA66C    DS.L    001
  1292. LCA670    DS.L    001
  1293. LCA674    DS.W    001
  1294. LCA676    DS.L    031
  1295. LCA6F2    DS.L    001
  1296. LCA6F6    DS.L    080
  1297. LCA836    DS.L    800
  1298. LCB4B6    DS.W    900
  1299.  
  1300. ADDMNT    DS.L    1
  1301. CRTMNT    DS.L    1
  1302. ADDTER    DS.L    1
  1303. CRTTER    DS.L    1
  1304. ADDMER    DS.L    1
  1305. CRTMER    DS.L    1
  1306.  
  1307. VBLCNT    DS.W    1
  1308.  
  1309. S_SSP1    DS.L    1
  1310. S_SSP2    DS.L    1
  1311. S_PHY    DS.L    1
  1312. S_LOG    DS.L    1
  1313. S_0070    DS.L    1
  1314. S_0120    DS.L    1
  1315. S_CACR    DS.L    1
  1316. S_MODE    DS.W    1
  1317. S_FA07    DS.B    1
  1318. S_FA13    DS.B    1
  1319. S_FA09    DS.B    1
  1320. S_FA15    DS.B    1
  1321. S_FA17    DS.B    1
  1322.  
  1323.     END
  1324.